This should be same as the original charts of “Nasdaq 100 Index 1985/11/01-2012/06/29”
library(dcStockR)
library(httr)
library(lubridate)
Get data from dc-js’s repo.
res <- GET("https://github.com/dc-js/dc.js/raw/master/web/ndx.csv")
ndx <- content(res, type = "text/csv")
ndx$date <- as.character(mdy(ndx$date))
Draw charts.
# yearlyBubbleChart
dc(ndx, "yearlyBubbleChart", title = "Yearly Performance (radius: fluctuation/index ratio, color: gain/loss)")
# gainOrLossChart
dc(ndx, "gainOrLossChart", title = "Days by Gain/Loss", height = 300)
# quarterChart
dc(ndx, "quarterChart", title = "Quarters", height = 300)
# dayOfWeekChart
dc(ndx, "dayOfWeekChart", title = "Day of Week", height = 300)
# fluctuationChart
dc(ndx, "fluctuationChart", title = "Days by Fluctuation(%)", height = 300)
# moveChart
dc(ndx, "moveChart", title = "Monthly Index Abs Move & Volume/500,000 Chart")
# dataCount
dc(ndx, "dataCount")
# dataTable
dc(ndx, "dataTable")